﻿Public Class BewegungstabelleCustom
    Inherits Bewegungstabelle
    Public Sub New(ByRef Reader As IO.StreamReader)
        While Not Reader.EndOfStream
            Dim Zeile As String = Reader.ReadLine.Trim
            If Zeile.StartsWith("'") Then Continue While
            If Zeile.ToLower.StartsWith("tabellenende") Then Exit While
            Dim Daten As String() = Zeile.Split(":")
            Select Case Daten(0).ToUpper
                Case "STADT"
                    STADT = Daten(1)
                Case "BASIS"
                    BASIS = Daten(1)
                Case "HQ"
                    HQ = Daten(1)
                Case "WERFT"
                    WERFT = Daten(1)
                Case "LABOR"
                    LABOR = Daten(1)
                Case "FLUGHAFEN"
                    FLUGHAFEN = Daten(1)
                Case "TURM"
                    TURM = Daten(1)
                Case "STRASSE"
                    STRASSE = Daten(1)
                Case "EBENE"
                    EBENE = Daten(1)
                Case "WALD"
                    WALD = Daten(1)
                Case "STRAND"
                    STRAND = Daten(1)
                Case "EBENE+SCHROTT"
                    EBENESCHROTT = Daten(1)
                Case "BRUECKE"
                    BRUECKE = Daten(1)
                Case "BERG"
                    BERG = Daten(1)
                Case "FLUSS"
                    FLUSS = Daten(1)
                Case "SEE"
                    SEE = Daten(1)
                Case "RIFF"
                    RIFF = Daten(1)
                Case "RAKETENSILO+RAKETE"
                    RAKETENSILORAKETE = Daten(1)
                Case "RAKETENSILO"
                    RAKETENSILO = Daten(1)
                Case "PIPESTATION"
                    PIPESTATION = Daten(1)
                Case "AUSGETROCKNETESFLUSSBETT"
                    AUSGETROCKNETESFLUSSBETT = Daten(1)
                Case "FELSEN"
                    FELSEN = Daten(1)
                Case "GIPFEL"
                    GIPFEL = Daten(1)
                Case "KAKTEEN"
                    KAKTEEN = Daten(1)
                Case "KAPUTTEPIPESCHWEISS"
                    KAPUTTEPIPESCHWEISS = Daten(1)
                Case "KAPUTTESCHWEISSNAHT"
                    KAPUTTESCHWEISSNAHT = Daten(1)
                Case "KIEFERN"
                    KIEFERN = Daten(1)
                Case "PFAD"
                    PFAD = Daten(1)
                Case "PIPE"
                    PIPE = Daten(1)
                Case "PIPELINE"
                    PIPELINE = Daten(1)
                Case "PIPESCHWEISS"
                    PIPESCHWEISS = Daten(1)
                Case "PLINE"
                    PLINE = Daten(1)
                Case "PLINEKAPUTT"
                    PLINEKAPUTT = Daten(1)
                Case "PLINESCHWEISS"
                    PLINESCHWEISS = Daten(1)
                Case "SCHNEE"
                    SCHNEE = Daten(1)
                Case "SCHWEISSNAHT"
                    SCHWEISSNAHT = Daten(1)
                Case "STRASSENFROST"
                    STRASSENFROST = Daten(1)
                Case "WUESTE"
                    WUESTE = Daten(1)
                Case "MAUER"
                    MAUER = Daten(1)
                Case "ZUGBRUECKE"
                    ZUGBRUECKE = Daten(1)
                Case "MINE"
                    MINE = Daten(1)
                Case "WUESTE+SCHROTT"
                    WUESTENSCHROTT = Daten(1)
                Case "SCHNEE+SCHROTT"
                    SCHNEESCHROTT = Daten(1)
                Case "SUMPF"
                    SUMPF = Daten(1)
                Case "LUFT"
                    LUFT = Daten(1)
                Case "WOLKEN"
                    WOLKEN = Daten(1)
                Case "BAUBRUECKE"
                    BAUBRUECKE = Daten(1)
                Case "RADAR"
                    RADAR = Daten(1)
                Case "TEMPWERFT"
                    TEMPWERFT = Daten(1)
                Case "TEMPFLUGHAFEN"
                    TEMPFLUGHAFEN = Daten(1)
                Case "NEBEL"
                    NEBEL = Daten(1)
                Case "RAUESEE"
                    RAUESEE = Daten(1)
                Case "OEDLAND"
                    OEDLAND = Daten(1)
                Case "RUINEN"
                    RUINEN = Daten(1)
            End Select
        End While
    End Sub
    Public Sub Write(ByVal StrW As IO.StreamWriter)
        StrW.WriteLine("STADT:" + STADT.ToString)
        StrW.WriteLine("BASIS:" + BASIS.ToString)
        StrW.WriteLine("HQ:" + HQ.ToString)
        StrW.WriteLine("WERFT:" + WERFT.ToString)
        StrW.WriteLine("LABOR:" + LABOR.ToString)
        StrW.WriteLine("FLUGHAFEN:" + FLUGHAFEN.ToString)
        StrW.WriteLine("TURM:" + TURM.ToString)
        StrW.WriteLine("STRASSE:" + STRASSE.ToString)
        StrW.WriteLine("EBENE:" + EBENE.ToString)
        StrW.WriteLine("WALD:" + WALD.ToString)
        StrW.WriteLine("STRAND:" + STRAND.ToString)
        StrW.WriteLine("EBENE+SCHROTT:" + EBENESCHROTT.ToString)
        StrW.WriteLine("BRUECKE:" + BRUECKE.ToString)
        StrW.WriteLine("BERG:" + BERG.ToString)
        StrW.WriteLine("FLUSS:" + FLUSS.ToString)
        StrW.WriteLine("SEE:" + SEE.ToString)
        StrW.WriteLine("RIFF:" + RIFF.ToString)
        StrW.WriteLine("RAKETENSILO+RAKETE:" + RAKETENSILORAKETE.ToString)
        StrW.WriteLine("RAKETENSILO:" + RAKETENSILO.ToString)
        StrW.WriteLine("PIPESTATION:" + PIPESTATION.ToString)
        StrW.WriteLine("AUSGETROCKNETESFLUSSBETT:" + AUSGETROCKNETESFLUSSBETT.ToString)
        StrW.WriteLine("FELSEN:" + FELSEN.ToString)
        StrW.WriteLine("GIPFEL:" + GIPFEL.ToString)
        StrW.WriteLine("KAKTEEN:" + KAKTEEN.ToString)
        StrW.WriteLine("KAPUTTEPIPESCHWEISS:" + KAPUTTEPIPESCHWEISS.ToString)
        StrW.WriteLine("KAPUTTESCHWEISSNAHT:" + KAPUTTESCHWEISSNAHT.ToString)
        StrW.WriteLine("KIEFERN:" + KIEFERN.ToString)
        StrW.WriteLine("PFAD:" + PFAD.ToString)
        StrW.WriteLine("PIPE:" + PIPE.ToString)
        StrW.WriteLine("PIPELINE:" + PIPELINE.ToString)
        StrW.WriteLine("PIPESCHWEISS:" + PIPESCHWEISS.ToString)
        StrW.WriteLine("PLINE:" + PLINE.ToString)
        StrW.WriteLine("PLINEKAPUTT:" + PLINEKAPUTT.ToString)
        StrW.WriteLine("PLINESCHWEISS:" + PLINESCHWEISS.ToString)
        StrW.WriteLine("SCHNEE:" + SCHNEE.ToString)
        StrW.WriteLine("SCHWEISSNAHT:" + SCHWEISSNAHT.ToString)
        StrW.WriteLine("STRASSENFROST:" + STRASSENFROST.ToString)
        StrW.WriteLine("WUESTE:" + WUESTE.ToString)
        StrW.WriteLine("MAUER:" + MAUER.ToString)
        StrW.WriteLine("ZUGBRUECKE:" + ZUGBRUECKE.ToString)
        StrW.WriteLine("MINE:" + MINE.ToString)
        StrW.WriteLine("WUESTE+SCHROTT:" + WUESTENSCHROTT.ToString)
        StrW.WriteLine("SCHNEE+SCHROTT:" + SCHNEESCHROTT.ToString)
        StrW.WriteLine("SUMPF:" + SUMPF.ToString)
        StrW.WriteLine("LUFT:" + LUFT.ToString)
        StrW.WriteLine("WOLKEN:" + WOLKEN.ToString)
        StrW.WriteLine("BAUBRUECKE:" + BAUBRUECKE.ToString)
        StrW.WriteLine("RADAR:" + RADAR.ToString)
        StrW.WriteLine("TEMPWERFT:" + TEMPWERFT.ToString)
        StrW.WriteLine("TEMPFLUGHAFEN:" + TEMPFLUGHAFEN.ToString)
        StrW.WriteLine("NEBEL:" + NEBEL.ToString)
        StrW.WriteLine("RAUESEE:" + RAUESEE.ToString)
        StrW.WriteLine("OEDLAND:" + OEDLAND.ToString)
        StrW.WriteLine("RUINEN:" + RUINEN.ToString)
        StrW.WriteLine("Tabellenende")
    End Sub
End Class
